home *** CD-ROM | disk | FTP | other *** search
/ Super CD / Super CD.iso / geomitri / fcad / macros.scr < prev    next >
Encoding:
Text File  |  1987-09-15  |  832 b   |  46 lines
  1. ECOFF;
  2.  
  3. MACRO Boundary;
  4. ECOFF;SNAPOFF;ORTHOFF;
  5. GP OnCirc ^A Select circle: ;
  6. IFER Abort;
  7. GP L DEG 210 OnCirc;
  8. GP R DEG 30 OnCirc;
  9. NextLine:;
  10. GP Pt ^A Select line: ;
  11. IFER Abort;
  12. TRIM Pt INT Pt L;
  13. TRIM Pt INT Pt R;
  14. GO NextLine;
  15. Abort: ECON ^C;
  16. ENDM;
  17.  
  18. MACRO Divide;
  19. ECOFF;
  20. GP PickPt ^A Select entity: ;IFER Done;
  21. GN Seg ^A Number of segments? ;IFER Done;
  22. IFLE Seg 1 Done;
  23. GV Pct 0;
  24. CalcTick;
  25. CALC Spc = 100 / Seg;;
  26. CALC Seg = Seg - 1;;
  27. Loop:;
  28. CALC Pct = Pct + Spc;;
  29. GP InsPt % Pct PickPt;
  30. LINE REF InsPt ToStart EndPt;;
  31. CALC Seg = Seg - 1;;
  32. IFGT Seg 0 Loop;
  33. Done: ECON ^C;
  34. ENDM;
  35.  
  36. MACRO CalcTick;
  37. SBANG Angle % 0 PickPt % 100 PickPt;
  38. SDIST Len % 0 PickPt % 100 PickPt;
  39. CALC Len = Len / 20;;
  40. CALC Angle = Angle + 90;;
  41. SET ToStart = < Angle , Len / 2;;
  42. SET EndPt = ~ 180 , Len;;
  43. ENDM;
  44.  
  45. ECON;
  46.